分两种情况 第一种情况，序号就增加到多少，目前尚未解决， Dim count As Integer Dim GroupName As String Public Function GroupCount(name As String) As String If (GroupName = ) Then count = 1 GroupName = name GroupCount = count Exit Function End If If (GroupName = name) Then count = count GroupCount = count Else GroupName = name count = count 1 GroupCount = count End If End Function 然后在需要添加序号的表中添加表达式=Code.GroupCount(Fields!bm.Value) 其中方法一， ，表分组后添加序号，分组外排序， 在报表属性-》代码中添加如下代码： Dim count As Integer Dim GroupName As String Public Function GroupCount(name As String) As String If (GroupName = ) Then count = 1 GroupName = name GroupCount = count Exit Function End If If (GroupName = name) Then count = count 1 GroupCount = count Else count = 1 GroupName = name GroupCount = count Exit Function End If End Function 然后在需要添加序号的表中添加表达式=Code.GroupCount(Fields!bm.Value) 第二种情况，有多少个不同的组，调用表达式RowNumber( Nothing ) 2、RDLC报表，即给组排序，在分组内添加从1开始的序号，从1开始， 1、RDLC报表表中添加序号。

每个分组内都是从1开始计数，每多一个不同的分组添加1，在翻页的时候会重新从1开始计数，可以尝试将表嵌套在矩阵中，。